home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The School House• / Math Factory™ Demo ••••• / Math Factory™ Demo •••••.rsrc / CODE_14.txt < prev    next >
Text File  |  1988-01-30  |  34KB  |  605 lines
  1. # near model CODE resource
  2. # jump table entries: 608-608 (1 of them)
  3. 00000000  0000 0000                ori.b      D0, 0x0
  4. export_76:
  5. 00000004  4E56 FFF2                link       A6, -0x000E
  6. 00000008  3F3C 0014                move.w     -[A7], 0x14
  7. 0000000C  A887                     syscall    TextFont
  8. 0000000E  3F3C 000C                move.w     -[A7], 0xC
  9. 00000012  A88A                     syscall    TextSize
  10. 00000014  0C6D 000A E9C6           cmpi.w     [A5 - 0x163A], 0xA /* '\n' */
  11. 0000001A  57C0                     seq        D0
  12. 0000001C  4400                     neg.b      D0
  13. 0000001E  C02D E1B7                and.b      D0, [A5 - 0x1E49]
  14. 00000022  6700 05B2                beq        +0x5B4 /* 000005D6 */
  15. 00000026  486D E094                pea.l      [A5 - 0x1F6C]
  16. 0000002A  3F3C 0198                move.w     -[A7], 0x198
  17. 0000002E  3F3C 00C9                move.w     -[A7], 0xC9
  18. 00000032  3F3C 01C5                move.w     -[A7], 0x1C5
  19. 00000036  3F3C 0127                move.w     -[A7], 0x127
  20. 0000003A  A8A7                     syscall    SetRect
  21. 0000003C  4A2D E2D5                tst.b      [A5 - 0x1D2B]
  22. 00000040  6700 000E                beq        +0x10 /* 00000050 */
  23. 00000044  487A 06EC                pea.l      [PC + 0x6EC /* 00000732, value 0xC446F6F, pstring "Door Opening" */]
  24. 00000048  3F3C 0004                move.w     -[A7], 0x4
  25. 0000004C  4EAD 01F2                jsr        [A5 + 0x1F2 /* export_58 */]
  26. label00000050:
  27. 00000050  2F07                     move.l     -[A7], D7
  28. 00000052  7001                     moveq.l    D0, 0x01
  29. 00000054  7E0A                     moveq.l    D7, 0x0A
  30. 00000056  9E40                     sub.w      D7, D0
  31. 00000058  6D00 0040                blt        +0x42 /* 0000009A */
  32. 0000005C  3D40 FFFE                move.w     [A6 - 0x2], D0
  33. label00000060:
  34. 00000060  486D DF9A                pea.l      [A5 - 0x2066]
  35. 00000064  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  36. 00000068  4868 0002                pea.l      [A0 + 0x2]
  37. 0000006C  302E FFFE                move.w     D0, [A6 - 0x2]
  38. 00000070  E748                     lsl        D0.w, 3
  39. 00000072  41ED E004                lea.l      A0, [A5 - 0x1FFC]
  40. 00000076  4870 0000                pea.l      [A0 + D0.w]
  41. 0000007A  486D E094                pea.l      [A5 - 0x1F6C]
  42. 0000007E  4267                     clr.w      -[A7]
  43. 00000080  42A7                     clr.l      -[A7]
  44. 00000082  A8EC                     syscall    CopyBits
  45. 00000084  2F3C 0000 000F           move.l     -[A7], 0xF
  46. 0000008A  486D FE3A                pea.l      [A5 - 0x1C6]
  47. 0000008E  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  48. 00000092  526E FFFE                addq.w     [A6 - 0x2], 1
  49. 00000096  51CF FFC8                dbf        D7, -0x3A /* 00000060 */
  50. label0000009A:
  51. 0000009A  2E1F                     move.l     D7, [A7]+
  52. 0000009C  2F3C 0000 0005           move.l     -[A7], 0x5
  53. 000000A2  486D FE3A                pea.l      [A5 - 0x1C6]
  54. 000000A6  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  55. 000000AA  4A2D E2D5                tst.b      [A5 - 0x1D2B]
  56. 000000AE  6700 000E                beq        +0x10 /* 000000BE */
  57. 000000B2  487A 068C                pea.l      [PC + 0x68C /* 00000740, value 0xC446F6F, pstring "Door Closing" */]
  58. 000000B6  3F3C 0004                move.w     -[A7], 0x4
  59. 000000BA  4EAD 01F2                jsr        [A5 + 0x1F2 /* export_58 */]
  60. label000000BE:
  61. 000000BE  486D DF9A                pea.l      [A5 - 0x2066]
  62. 000000C2  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  63. 000000C6  4868 0002                pea.l      [A0 + 0x2]
  64. 000000CA  486D E004                pea.l      [A5 - 0x1FFC]
  65. 000000CE  486D E094                pea.l      [A5 - 0x1F6C]
  66. 000000D2  4267                     clr.w      -[A7]
  67. 000000D4  42A7                     clr.l      -[A7]
  68. 000000D6  A8EC                     syscall    CopyBits
  69. 000000D8  2F07                     move.l     -[A7], D7
  70. 000000DA  303C 00F6                move.w     D0, 0xF6
  71. 000000DE  3E3C 00CE                move.w     D7, 0xCE
  72. 000000E2  9E40                     sub.w      D7, D0
  73. 000000E4  6E00 0066                bgt        +0x68 /* 0000014C */
  74. 000000E8  3D40 FFFE                move.w     [A6 - 0x2], D0
  75. 000000EC  4447                     neg.w      D7
  76. label000000EE:
  77. 000000EE  486E FFF6                pea.l      [A6 - 0xA]
  78. 000000F2  3F3C 019D                move.w     -[A7], 0x19D
  79. 000000F6  302E FFFE                move.w     D0, [A6 - 0x2]
  80. 000000FA  5340                     subq.w     D0, 1
  81. 000000FC  3F00                     move.w     -[A7], D0
  82. 000000FE  3F3C 01AA                move.w     -[A7], 0x1AA
  83. 00000102  3F2E FFFE                move.w     -[A7], [A6 - 0x2]
  84. 00000106  A8A7                     syscall    SetRect
  85. 00000108  486E FFF6                pea.l      [A6 - 0xA]
  86. 0000010C  486D FFD6                pea.l      [A5 - 0x2A]
  87. 00000110  A8A5                     syscall    FillRect
  88. 00000112  486E FFF6                pea.l      [A6 - 0xA]
  89. 00000116  3F3C 01B3                move.w     -[A7], 0x1B3
  90. 0000011A  302E FFFE                move.w     D0, [A6 - 0x2]
  91. 0000011E  5340                     subq.w     D0, 1
  92. 00000120  3F00                     move.w     -[A7], D0
  93. 00000122  3F3C 01C0                move.w     -[A7], 0x1C0
  94. 00000126  3F2E FFFE                move.w     -[A7], [A6 - 0x2]
  95. 0000012A  A8A7                     syscall    SetRect
  96. 0000012C  486E FFF6                pea.l      [A6 - 0xA]
  97. 00000130  486D FFD6                pea.l      [A5 - 0x2A]
  98. 00000134  A8A5                     syscall    FillRect
  99. 00000136  2F3C 0000 0002           move.l     -[A7], 0x2
  100. 0000013C  486D FE3A                pea.l      [A5 - 0x1C6]
  101. 00000140  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  102. 00000144  536E FFFE                subq.w     [A6 - 0x2], 1
  103. 00000148  51CF FFA4                dbf        D7, -0x5E /* 000000EE */
  104. label0000014C:
  105. 0000014C  2E1F                     move.l     D7, [A7]+
  106. 0000014E  2F07                     move.l     -[A7], D7
  107. 00000150  303C 00AF                move.w     D0, 0xAF
  108. 00000154  3E3C 009B                move.w     D7, 0x9B
  109. 00000158  9E40                     sub.w      D7, D0
  110. 0000015A  6E00 0042                bgt        +0x44 /* 0000019E */
  111. 0000015E  3D40 FFFE                move.w     [A6 - 0x2], D0
  112. 00000162  4447                     neg.w      D7
  113. label00000164:
  114. 00000164  486E FFF6                pea.l      [A6 - 0xA]
  115. 00000168  3F3C 0182                move.w     -[A7], 0x182
  116. 0000016C  302E FFFE                move.w     D0, [A6 - 0x2]
  117. 00000170  5340                     subq.w     D0, 1
  118. 00000172  3F00                     move.w     -[A7], D0
  119. 00000174  3F3C 019A                move.w     -[A7], 0x19A
  120. 00000178  3F2E FFFE                move.w     -[A7], [A6 - 0x2]
  121. 0000017C  A8A7                     syscall    SetRect
  122. 0000017E  486E FFF6                pea.l      [A6 - 0xA]
  123. 00000182  486D FFD6                pea.l      [A5 - 0x2A]
  124. 00000186  A8A5                     syscall    FillRect
  125. 00000188  2F3C 0000 0002           move.l     -[A7], 0x2
  126. 0000018E  486D FE3A                pea.l      [A5 - 0x1C6]
  127. 00000192  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  128. 00000196  536E FFFE                subq.w     [A6 - 0x2], 1
  129. 0000019A  51CF FFC8                dbf        D7, -0x3A /* 00000164 */
  130. label0000019E:
  131. 0000019E  2E1F                     move.l     D7, [A7]+
  132. 000001A0  2F07                     move.l     -[A7], D7
  133. 000001A2  7079                     moveq.l    D0, 0x79
  134. 000001A4  7E65                     moveq.l    D7, 0x65
  135. 000001A6  9E40                     sub.w      D7, D0
  136. 000001A8  6E00 0042                bgt        +0x44 /* 000001EC */
  137. 000001AC  3D40 FFFE                move.w     [A6 - 0x2], D0
  138. 000001B0  4447                     neg.w      D7
  139. label000001B2:
  140. 000001B2  486E FFF6                pea.l      [A6 - 0xA]
  141. 000001B6  3F3C 0183                move.w     -[A7], 0x183
  142. 000001BA  302E FFFE                move.w     D0, [A6 - 0x2]
  143. 000001BE  5340                     subq.w     D0, 1
  144. 000001C0  3F00                     move.w     -[A7], D0
  145. 000001C2  3F3C 019B                move.w     -[A7], 0x19B
  146. 000001C6  3F2E FFFE                move.w     -[A7], [A6 - 0x2]
  147. 000001CA  A8A7                     syscall    SetRect
  148. 000001CC  486E FFF6                pea.l      [A6 - 0xA]
  149. 000001D0  486D FFD6                pea.l      [A5 - 0x2A]
  150. 000001D4  A8A5                     syscall    FillRect
  151. 000001D6  2F3C 0000 0002           move.l     -[A7], 0x2
  152. 000001DC  486D FE3A                pea.l      [A5 - 0x1C6]
  153. 000001E0  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  154. 000001E4  536E FFFE                subq.w     [A6 - 0x2], 1
  155. 000001E8  51CF FFC8                dbf        D7, -0x3A /* 000001B2 */
  156. label000001EC:
  157. 000001EC  2E1F                     move.l     D7, [A7]+
  158. 000001EE  2F07                     move.l     -[A7], D7
  159. 000001F0  7045                     moveq.l    D0, 0x45
  160. 000001F2  7E30                     moveq.l    D7, 0x30
  161. 000001F4  9E40                     sub.w      D7, D0
  162. 000001F6  6E00 0042                bgt        +0x44 /* 0000023A */
  163. 000001FA  3D40 FFFE                move.w     [A6 - 0x2], D0
  164. 000001FE  4447                     neg.w      D7
  165. label00000200:
  166. 00000200  486E FFF6                pea.l      [A6 - 0xA]
  167. 00000204  3F3C 0183                move.w     -[A7], 0x183
  168. 00000208  302E FFFE                move.w     D0, [A6 - 0x2]
  169. 0000020C  5340                     subq.w     D0, 1
  170. 0000020E  3F00                     move.w     -[A7], D0
  171. 00000210  3F3C 019B                move.w     -[A7], 0x19B
  172. 00000214  3F2E FFFE                move.w     -[A7], [A6 - 0x2]
  173. 00000218  A8A7                     syscall    SetRect
  174. 0000021A  486E FFF6                pea.l      [A6 - 0xA]
  175. 0000021E  486D FFD6                pea.l      [A5 - 0x2A]
  176. 00000222  A8A5                     syscall    FillRect
  177. 00000224  2F3C 0000 0002           move.l     -[A7], 0x2
  178. 0000022A  486D FE3A                pea.l      [A5 - 0x1C6]
  179. 0000022E  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  180. 00000232  536E FFFE                subq.w     [A6 - 0x2], 1
  181. 00000236  51CF FFC8                dbf        D7, -0x3A /* 00000200 */
  182. label0000023A:
  183. 0000023A  2E1F                     move.l     D7, [A7]+
  184. 0000023C  486D DF9A                pea.l      [A5 - 0x2066]
  185. 00000240  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  186. 00000244  4868 0002                pea.l      [A0 + 0x2]
  187. 00000248  486D E10E                pea.l      [A5 - 0x1EF2]
  188. 0000024C  486D E196                pea.l      [A5 - 0x1E6A]
  189. 00000250  4267                     clr.w      -[A7]
  190. 00000252  42A7                     clr.l      -[A7]
  191. 00000254  A8EC                     syscall    CopyBits
  192. 00000256  2F3C 0000 001E           move.l     -[A7], 0x1E
  193. 0000025C  486D FE3A                pea.l      [A5 - 0x1C6]
  194. 00000260  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  195. 00000264  2F07                     move.l     -[A7], D7
  196. 00000266  7030                     moveq.l    D0, 0x30
  197. 00000268  7E44                     moveq.l    D7, 0x44
  198. 0000026A  9E40                     sub.w      D7, D0
  199. 0000026C  6D00 0040                blt        +0x42 /* 000002AE */
  200. 00000270  3D40 FFFE                move.w     [A6 - 0x2], D0
  201. label00000274:
  202. 00000274  486E FFF6                pea.l      [A6 - 0xA]
  203. 00000278  3F3C 0183                move.w     -[A7], 0x183
  204. 0000027C  3F2E FFFE                move.w     -[A7], [A6 - 0x2]
  205. 00000280  3F3C 019B                move.w     -[A7], 0x19B
  206. 00000284  302E FFFE                move.w     D0, [A6 - 0x2]
  207. 00000288  5240                     addq.w     D0, 1
  208. 0000028A  3F00                     move.w     -[A7], D0
  209. 0000028C  A8A7                     syscall    SetRect
  210. 0000028E  486E FFF6                pea.l      [A6 - 0xA]
  211. 00000292  486D FFDE                pea.l      [A5 - 0x22]
  212. 00000296  A8A5                     syscall    FillRect
  213. 00000298  2F3C 0000 0002           move.l     -[A7], 0x2
  214. 0000029E  486D FE3A                pea.l      [A5 - 0x1C6]
  215. 000002A2  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  216. 000002A6  526E FFFE                addq.w     [A6 - 0x2], 1
  217. 000002AA  51CF FFC8                dbf        D7, -0x3A /* 00000274 */
  218. label000002AE:
  219. 000002AE  2E1F                     move.l     D7, [A7]+
  220. 000002B0  302D E9C6                move.w     D0, [A5 - 0x163A]
  221. 000002B4  48C0                     ext.l      D0
  222. 000002B6  2F00                     move.l     -[A7], D0
  223. 000002B8  486D FB36                pea.l      [A5 - 0x4CA]
  224. 000002BC  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  225. 000002C0  558F                     subq.l     A7, 2
  226. 000002C2  486D FB36                pea.l      [A5 - 0x4CA]
  227. 000002C6  A88C                     syscall    StringWidth
  228. 000002C8  301F                     move.w     D0, [A7]+
  229. 000002CA  48C0                     ext.l      D0
  230. 000002CC  81FC 0002                divs.w     D0, 0x2
  231. 000002D0  323C 018F                move.w     D1, 0x18F
  232. 000002D4  9240                     sub.w      D1, D0
  233. 000002D6  3F01                     move.w     -[A7], D1
  234. 000002D8  3F3C 003F                move.w     -[A7], 0x3F /* '?' */
  235. 000002DC  A893                     syscall    MoveTo
  236. 000002DE  486D FB36                pea.l      [A5 - 0x4CA]
  237. 000002E2  A884                     syscall    DrawString
  238. 000002E4  2F3C 0000 001E           move.l     -[A7], 0x1E
  239. 000002EA  486D FE3A                pea.l      [A5 - 0x1C6]
  240. 000002EE  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  241. 000002F2  2F07                     move.l     -[A7], D7
  242. 000002F4  7064                     moveq.l    D0, 0x64
  243. 000002F6  7E78                     moveq.l    D7, 0x78
  244. 000002F8  9E40                     sub.w      D7, D0
  245. 000002FA  6D00 0040                blt        +0x42 /* 0000033C */
  246. 000002FE  3D40 FFFE                move.w     [A6 - 0x2], D0
  247. label00000302:
  248. 00000302  486E FFF6                pea.l      [A6 - 0xA]
  249. 00000306  3F3C 0183                move.w     -[A7], 0x183
  250. 0000030A  3F2E FFFE                move.w     -[A7], [A6 - 0x2]
  251. 0000030E  3F3C 019B                move.w     -[A7], 0x19B
  252. 00000312  302E FFFE                move.w     D0, [A6 - 0x2]
  253. 00000316  5240                     addq.w     D0, 1
  254. 00000318  3F00                     move.w     -[A7], D0
  255. 0000031A  A8A7                     syscall    SetRect
  256. 0000031C  486E FFF6                pea.l      [A6 - 0xA]
  257. 00000320  486D FFDE                pea.l      [A5 - 0x22]
  258. 00000324  A8A5                     syscall    FillRect
  259. 00000326  2F3C 0000 0002           move.l     -[A7], 0x2
  260. 0000032C  486D FE3A                pea.l      [A5 - 0x1C6]
  261. 00000330  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  262. 00000334  526E FFFE                addq.w     [A6 - 0x2], 1
  263. 00000338  51CF FFC8                dbf        D7, -0x3A /* 00000302 */
  264. label0000033C:
  265. 0000033C  2E1F                     move.l     D7, [A7]+
  266. 0000033E  2F2D E2C6                move.l     -[A7], [A5 - 0x1D3A]
  267. 00000342  486D FB36                pea.l      [A5 - 0x4CA]
  268. 00000346  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  269. 0000034A  558F                     subq.l     A7, 2
  270. 0000034C  486D FB36                pea.l      [A5 - 0x4CA]
  271. 00000350  A88C                     syscall    StringWidth
  272. 00000352  301F                     move.w     D0, [A7]+
  273. 00000354  48C0                     ext.l      D0
  274. 00000356  81FC 0002                divs.w     D0, 0x2
  275. 0000035A  323C 018F                move.w     D1, 0x18F
  276. 0000035E  9240                     sub.w      D1, D0
  277. 00000360  3F01                     move.w     -[A7], D1
  278. 00000362  3F3C 0072                move.w     -[A7], 0x72 /* 'r' */
  279. 00000366  A893                     syscall    MoveTo
  280. 00000368  486D FB36                pea.l      [A5 - 0x4CA]
  281. 0000036C  A884                     syscall    DrawString
  282. 0000036E  2F3C 0000 001E           move.l     -[A7], 0x1E
  283. 00000374  486D FE3A                pea.l      [A5 - 0x1C6]
  284. 00000378  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  285. 0000037C  2F07                     move.l     -[A7], D7
  286. 0000037E  303C 009A                move.w     D0, 0x9A
  287. 00000382  3E3C 00AE                move.w     D7, 0xAE
  288. 00000386  9E40                     sub.w      D7, D0
  289. 00000388  6D00 0040                blt        +0x42 /* 000003CA */
  290. 0000038C  3D40 FFFE                move.w     [A6 - 0x2], D0
  291. label00000390:
  292. 00000390  486E FFF6                pea.l      [A6 - 0xA]
  293. 00000394  3F3C 0182                move.w     -[A7], 0x182
  294. 00000398  3F2E FFFE                move.w     -[A7], [A6 - 0x2]
  295. 0000039C  3F3C 019A                move.w     -[A7], 0x19A
  296. 000003A0  302E FFFE                move.w     D0, [A6 - 0x2]
  297. 000003A4  5240                     addq.w     D0, 1
  298. 000003A6  3F00                     move.w     -[A7], D0
  299. 000003A8  A8A7                     syscall    SetRect
  300. 000003AA  486E FFF6                pea.l      [A6 - 0xA]
  301. 000003AE  486D FFDE                pea.l      [A5 - 0x22]
  302. 000003B2  A8A5                     syscall    FillRect
  303. 000003B4  2F3C 0000 0002           move.l     -[A7], 0x2
  304. 000003BA  486D FE3A                pea.l      [A5 - 0x1C6]
  305. 000003BE  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  306. 000003C2  526E FFFE                addq.w     [A6 - 0x2], 1
  307. 000003C6  51CF FFC8                dbf        D7, -0x3A /* 00000390 */
  308. label000003CA:
  309. 000003CA  2E1F                     move.l     D7, [A7]+
  310. 000003CC  2F2D E2C2                move.l     -[A7], [A5 - 0x1D3E]
  311. 000003D0  486D FB36                pea.l      [A5 - 0x4CA]
  312. 000003D4  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  313. 000003D8  558F                     subq.l     A7, 2
  314. 000003DA  486D FB36                pea.l      [A5 - 0x4CA]
  315. 000003DE  A88C                     syscall    StringWidth
  316. 000003E0  301F                     move.w     D0, [A7]+
  317. 000003E2  48C0                     ext.l      D0
  318. 000003E4  81FC 0002                divs.w     D0, 0x2
  319. 000003E8  323C 018E                move.w     D1, 0x18E
  320. 000003EC  9240                     sub.w      D1, D0
  321. 000003EE  3F01                     move.w     -[A7], D1
  322. 000003F0  3F3C 00A8                move.w     -[A7], 0xA8
  323. 000003F4  A893                     syscall    MoveTo
  324. 000003F6  486D FB36                pea.l      [A5 - 0x4CA]
  325. 000003FA  A884                     syscall    DrawString
  326. 000003FC  2F07                     move.l     -[A7], D7
  327. 000003FE  303C 00CE                move.w     D0, 0xCE
  328. 00000402  3E3C 00F5                move.w     D7, 0xF5
  329. 00000406  9E40                     sub.w      D7, D0
  330. 00000408  6D00 0064                blt        +0x66 /* 0000046E */
  331. 0000040C  3D40 FFFE                move.w     [A6 - 0x2], D0
  332. label00000410:
  333. 00000410  486E FFF6                pea.l      [A6 - 0xA]
  334. 00000414  3F3C 019D                move.w     -[A7], 0x19D
  335. 00000418  3F2E FFFE                move.w     -[A7], [A6 - 0x2]
  336. 0000041C  3F3C 01AA                move.w     -[A7], 0x1AA
  337. 00000420  302E FFFE                move.w     D0, [A6 - 0x2]
  338. 00000424  5240                     addq.w     D0, 1
  339. 00000426  3F00                     move.w     -[A7], D0
  340. 00000428  A8A7                     syscall    SetRect
  341. 0000042A  486E FFF6                pea.l      [A6 - 0xA]
  342. 0000042E  486D FFDE                pea.l      [A5 - 0x22]
  343. 00000432  A8A5                     syscall    FillRect
  344. 00000434  486E FFF6                pea.l      [A6 - 0xA]
  345. 00000438  3F3C 01B3                move.w     -[A7], 0x1B3
  346. 0000043C  3F2E FFFE                move.w     -[A7], [A6 - 0x2]
  347. 00000440  3F3C 01C0                move.w     -[A7], 0x1C0
  348. 00000444  302E FFFE                move.w     D0, [A6 - 0x2]
  349. 00000448  5240                     addq.w     D0, 1
  350. 0000044A  3F00                     move.w     -[A7], D0
  351. 0000044C  A8A7                     syscall    SetRect
  352. 0000044E  486E FFF6                pea.l      [A6 - 0xA]
  353. 00000452  486D FFDE                pea.l      [A5 - 0x22]
  354. 00000456  A8A5                     syscall    FillRect
  355. 00000458  2F3C 0000 0002           move.l     -[A7], 0x2
  356. 0000045E  486D FE3A                pea.l      [A5 - 0x1C6]
  357. 00000462  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  358. 00000466  526E FFFE                addq.w     [A6 - 0x2], 1
  359. 0000046A  51CF FFA4                dbf        D7, -0x5E /* 00000410 */
  360. label0000046E:
  361. 0000046E  2E1F                     move.l     D7, [A7]+
  362. 00000470  4A2D E2D5                tst.b      [A5 - 0x1D2B]
  363. 00000474  6700 000E                beq        +0x10 /* 00000484 */
  364. 00000478  487A 02D4                pea.l      [PC + 0x2D4 /* 0000074E, value 0xC446F6F, pstring "Door Opening" */]
  365. 0000047C  3F3C 0004                move.w     -[A7], 0x4
  366. 00000480  4EAD 01F2                jsr        [A5 + 0x1F2 /* export_58 */]
  367. label00000484:
  368. 00000484  2F07                     move.l     -[A7], D7
  369. 00000486  700A                     moveq.l    D0, 0x0A
  370. 00000488  7E10                     moveq.l    D7, 0x10
  371. 0000048A  9E40                     sub.w      D7, D0
  372. 0000048C  6D00 00B8                blt        +0xBA /* 00000546 */
  373. 00000490  3D40 FFFE                move.w     [A6 - 0x2], D0
  374. label00000494:
  375. 00000494  0C6E 000A FFFE           cmpi.w     [A6 - 0x2], 0xA /* '\n' */
  376. 0000049A  6600 0020                bne        +0x22 /* 000004BC */
  377. 0000049E  486D DF9A                pea.l      [A5 - 0x2066]
  378. 000004A2  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  379. 000004A6  4868 0002                pea.l      [A0 + 0x2]
  380. 000004AA  486D E04C                pea.l      [A5 - 0x1FB4]
  381. 000004AE  486D E094                pea.l      [A5 - 0x1F6C]
  382. 000004B2  4267                     clr.w      -[A7]
  383. 000004B4  42A7                     clr.l      -[A7]
  384. 000004B6  A8EC                     syscall    CopyBits
  385. 000004B8  6000 0076                bra        +0x78 /* 00000530 */
  386. label000004BC:
  387. 000004BC  0C6E 000F FFFE           cmpi.w     [A6 - 0x2], 0xF
  388. 000004C2  6600 0020                bne        +0x22 /* 000004E4 */
  389. 000004C6  486D DF9A                pea.l      [A5 - 0x2066]
  390. 000004CA  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  391. 000004CE  4868 0002                pea.l      [A0 + 0x2]
  392. 000004D2  486D E014                pea.l      [A5 - 0x1FEC]
  393. 000004D6  486D E094                pea.l      [A5 - 0x1F6C]
  394. 000004DA  4267                     clr.w      -[A7]
  395. 000004DC  42A7                     clr.l      -[A7]
  396. 000004DE  A8EC                     syscall    CopyBits
  397. 000004E0  6000 004E                bra        +0x50 /* 00000530 */
  398. label000004E4:
  399. 000004E4  0C6E 0010 FFFE           cmpi.w     [A6 - 0x2], 0x10
  400. 000004EA  6600 0020                bne        +0x22 /* 0000050C */
  401. 000004EE  486D DF9A                pea.l      [A5 - 0x2066]
  402. 000004F2  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  403. 000004F6  4868 0002                pea.l      [A0 + 0x2]
  404. 000004FA  486D E00C                pea.l      [A5 - 0x1FF4]
  405. 000004FE  486D E094                pea.l      [A5 - 0x1F6C]
  406. 00000502  4267                     clr.w      -[A7]
  407. 00000504  42A7                     clr.l      -[A7]
  408. 00000506  A8EC                     syscall    CopyBits
  409. 00000508  6000 0026                bra        +0x28 /* 00000530 */
  410. label0000050C:
  411. 0000050C  486D DF9A                pea.l      [A5 - 0x2066]
  412. 00000510  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  413. 00000514  4868 0002                pea.l      [A0 + 0x2]
  414. 00000518  302E FFFE                move.w     D0, [A6 - 0x2]
  415. 0000051C  E748                     lsl        D0.w, 3
  416. 0000051E  41ED E004                lea.l      A0, [A5 - 0x1FFC]
  417. 00000522  4870 0000                pea.l      [A0 + D0.w]
  418. 00000526  486D E094                pea.l      [A5 - 0x1F6C]
  419. 0000052A  4267                     clr.w      -[A7]
  420. 0000052C  42A7                     clr.l      -[A7]
  421. 0000052E  A8EC                     syscall    CopyBits
  422. label00000530:
  423. 00000530  2F3C 0000 000F           move.l     -[A7], 0xF
  424. 00000536  486D FE3A                pea.l      [A5 - 0x1C6]
  425. 0000053A  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  426. 0000053E  526E FFFE                addq.w     [A6 - 0x2], 1
  427. 00000542  51CF FF50                dbf        D7, -0xB2 /* 00000494 */
  428. label00000546:
  429. 00000546  2E1F                     move.l     D7, [A7]+
  430. 00000548  2F3C 0000 0005           move.l     -[A7], 0x5
  431. 0000054E  486D FE3A                pea.l      [A5 - 0x1C6]
  432. 00000552  4EAD 00EA                jsr        [A5 + 0xEA /* export_25 */]
  433. 00000556  4A2D E2D5                tst.b      [A5 - 0x1D2B]
  434. 0000055A  6700 000E                beq        +0x10 /* 0000056A */
  435. 0000055E  487A 01FC                pea.l      [PC + 0x1FC /* 0000075C, value 0xC446F6F, pstring "Door Closing" */]
  436. 00000562  3F3C 0004                move.w     -[A7], 0x4
  437. 00000566  4EAD 01F2                jsr        [A5 + 0x1F2 /* export_58 */]
  438. label0000056A:
  439. 0000056A  486D DF9A                pea.l      [A5 - 0x2066]
  440. 0000056E  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  441. 00000572  4868 0002                pea.l      [A0 + 0x2]
  442. 00000576  486D E004                pea.l      [A5 - 0x1FFC]
  443. 0000057A  486D E094                pea.l      [A5 - 0x1F6C]
  444. 0000057E  4267                     clr.w      -[A7]
  445. 00000580  42A7                     clr.l      -[A7]
  446. 00000582  A8EC                     syscall    CopyBits
  447. 00000584  486D DF9A                pea.l      [A5 - 0x2066]
  448. 00000588  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  449. 0000058C  4868 0002                pea.l      [A0 + 0x2]
  450. 00000590  486D E0EC                pea.l      [A5 - 0x1F14]
  451. 00000594  486D E106                pea.l      [A5 - 0x1EFA]
  452. 00000598  4267                     clr.w      -[A7]
  453. 0000059A  42A7                     clr.l      -[A7]
  454. 0000059C  A8EC                     syscall    CopyBits
  455. 0000059E  486D DF9A                pea.l      [A5 - 0x2066]
  456. 000005A2  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  457. 000005A6  4868 0002                pea.l      [A0 + 0x2]
  458. 000005AA  486D E09C                pea.l      [A5 - 0x1F64]
  459. 000005AE  486D E0CC                pea.l      [A5 - 0x1F34]
  460. 000005B2  4267                     clr.w      -[A7]
  461. 000005B4  42A7                     clr.l      -[A7]
  462. 000005B6  A8EC                     syscall    CopyBits
  463. 000005B8  486D DF9A                pea.l      [A5 - 0x2066]
  464. 000005BC  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  465. 000005C0  4868 0002                pea.l      [A0 + 0x2]
  466. 000005C4  486D E10E                pea.l      [A5 - 0x1EF2]
  467. 000005C8  486D E196                pea.l      [A5 - 0x1E6A]
  468. 000005CC  4267                     clr.w      -[A7]
  469. 000005CE  42A7                     clr.l      -[A7]
  470. 000005D0  A8EC                     syscall    CopyBits
  471. 000005D2  6000 0144                bra        +0x146 /* 00000718 */
  472. label000005D6:
  473. 000005D6  486E FFF6                pea.l      [A6 - 0xA]
  474. 000005DA  3F3C 0183                move.w     -[A7], 0x183
  475. 000005DE  3F3C 0030                move.w     -[A7], 0x30 /* '0' */
  476. 000005E2  3F3C 019B                move.w     -[A7], 0x19B
  477. 000005E6  3F3C 0045                move.w     -[A7], 0x45 /* 'E' */
  478. 000005EA  A8A7                     syscall    SetRect
  479. 000005EC  486E FFF6                pea.l      [A6 - 0xA]
  480. 000005F0  486D FFDE                pea.l      [A5 - 0x22]
  481. 000005F4  A8A5                     syscall    FillRect
  482. 000005F6  302D E9C6                move.w     D0, [A5 - 0x163A]
  483. 000005FA  48C0                     ext.l      D0
  484. 000005FC  2F00                     move.l     -[A7], D0
  485. 000005FE  486D FB36                pea.l      [A5 - 0x4CA]
  486. 00000602  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  487. 00000606  558F                     subq.l     A7, 2
  488. 00000608  486D FB36                pea.l      [A5 - 0x4CA]
  489. 0000060C  A88C                     syscall    StringWidth
  490. 0000060E  301F                     move.w     D0, [A7]+
  491. 00000610  48C0                     ext.l      D0
  492. 00000612  81FC 0002                divs.w     D0, 0x2
  493. 00000616  323C 018F                move.w     D1, 0x18F
  494. 0000061A  9240                     sub.w      D1, D0
  495. 0000061C  3F01                     move.w     -[A7], D1
  496. 0000061E  3F3C 003F                move.w     -[A7], 0x3F /* '?' */
  497. 00000622  A893                     syscall    MoveTo
  498. 00000624  486D FB36                pea.l      [A5 - 0x4CA]
  499. 00000628  A884                     syscall    DrawString
  500. 0000062A  486E FFF6                pea.l      [A6 - 0xA]
  501. 0000062E  3F3C 0183                move.w     -[A7], 0x183
  502. 00000632  3F3C 0064                move.w     -[A7], 0x64 /* 'd' */
  503. 00000636  3F3C 019B                move.w     -[A7], 0x19B
  504. 0000063A  3F3C 0079                move.w     -[A7], 0x79 /* 'y' */
  505. 0000063E  A8A7                     syscall    SetRect
  506. 00000640  486E FFF6                pea.l      [A6 - 0xA]
  507. 00000644  486D FFDE                pea.l      [A5 - 0x22]
  508. 00000648  A8A5                     syscall    FillRect
  509. 0000064A  2F2D E2C6                move.l     -[A7], [A5 - 0x1D3A]
  510. 0000064E  486D FB36                pea.l      [A5 - 0x4CA]
  511. 00000652  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  512. 00000656  558F                     subq.l     A7, 2
  513. 00000658  486D FB36                pea.l      [A5 - 0x4CA]
  514. 0000065C  A88C                     syscall    StringWidth
  515. 0000065E  301F                     move.w     D0, [A7]+
  516. 00000660  48C0                     ext.l      D0
  517. 00000662  81FC 0002                divs.w     D0, 0x2
  518. 00000666  323C 018F                move.w     D1, 0x18F
  519. 0000066A  9240                     sub.w      D1, D0
  520. 0000066C  3F01                     move.w     -[A7], D1
  521. 0000066E  3F3C 0072                move.w     -[A7], 0x72 /* 'r' */
  522. 00000672  A893                     syscall    MoveTo
  523. 00000674  486D FB36                pea.l      [A5 - 0x4CA]
  524. 00000678  A884                     syscall    DrawString
  525. 0000067A  486E FFF6                pea.l      [A6 - 0xA]
  526. 0000067E  3F3C 0182                move.w     -[A7], 0x182
  527. 00000682  3F3C 009A                move.w     -[A7], 0x9A
  528. 00000686  3F3C 019A                move.w     -[A7], 0x19A
  529. 0000068A  3F3C 00AF                move.w     -[A7], 0xAF
  530. 0000068E  A8A7                     syscall    SetRect
  531. 00000690  486E FFF6                pea.l      [A6 - 0xA]
  532. 00000694  486D FFDE                pea.l      [A5 - 0x22]
  533. 00000698  A8A5                     syscall    FillRect
  534. 0000069A  2F2D E2C2                move.l     -[A7], [A5 - 0x1D3E]
  535. 0000069E  486D FB36                pea.l      [A5 - 0x4CA]
  536. 000006A2  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  537. 000006A6  558F                     subq.l     A7, 2
  538. 000006A8  486D FB36                pea.l      [A5 - 0x4CA]
  539. 000006AC  A88C                     syscall    StringWidth
  540. 000006AE  301F                     move.w     D0, [A7]+
  541. 000006B0  48C0                     ext.l      D0
  542. 000006B2  81FC 0002                divs.w     D0, 0x2
  543. 000006B6  323C 018E                move.w     D1, 0x18E
  544. 000006BA  9240                     sub.w      D1, D0
  545. 000006BC  3F01                     move.w     -[A7], D1
  546. 000006BE  3F3C 00A8                move.w     -[A7], 0xA8
  547. 000006C2  A893                     syscall    MoveTo
  548. 000006C4  486D FB36                pea.l      [A5 - 0x4CA]
  549. 000006C8  A884                     syscall    DrawString
  550. 000006CA  486D DF9A                pea.l      [A5 - 0x2066]
  551. 000006CE  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  552. 000006D2  4868 0002                pea.l      [A0 + 0x2]
  553. 000006D6  486D E0EC                pea.l      [A5 - 0x1F14]
  554. 000006DA  486D E106                pea.l      [A5 - 0x1EFA]
  555. 000006DE  4267                     clr.w      -[A7]
  556. 000006E0  42A7                     clr.l      -[A7]
  557. 000006E2  A8EC                     syscall    CopyBits
  558. 000006E4  486D DF9A                pea.l      [A5 - 0x2066]
  559. 000006E8  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  560. 000006EC  4868 0002                pea.l      [A0 + 0x2]
  561. 000006F0  486D E09C                pea.l      [A5 - 0x1F64]
  562. 000006F4  486D E0CC                pea.l      [A5 - 0x1F34]
  563. 000006F8  4267                     clr.w      -[A7]
  564. 000006FA  42A7                     clr.l      -[A7]
  565. 000006FC  A8EC                     syscall    CopyBits
  566. 000006FE  486D DF9A                pea.l      [A5 - 0x2066]
  567. 00000702  206D FE4C                movea.l    A0, [A5 - 0x1B4]
  568. 00000706  4868 0002                pea.l      [A0 + 0x2]
  569. 0000070A  486D E10E                pea.l      [A5 - 0x1EF2]
  570. 0000070E  486D E196                pea.l      [A5 - 0x1E6A]
  571. 00000712  4267                     clr.w      -[A7]
  572. 00000714  42A7                     clr.l      -[A7]
  573. 00000716  A8EC                     syscall    CopyBits
  574. label00000718:
  575. 00000718  3F3C 0002                move.w     -[A7], 0x2
  576. 0000071C  A889                     syscall    TextMode
  577. 0000071E  3F3C 000E                move.w     -[A7], 0xE
  578. 00000722  A887                     syscall    TextFont
  579. 00000724  3F3C 0018                move.w     -[A7], 0x18
  580. 00000728  A88A                     syscall    TextSize
  581. 0000072A  4E5E                     unlink     A6
  582. 0000072C  205F                     movea.l    A0, [A7]+
  583. 0000072E  548F                     addq.l     A7, 2
  584. 00000730  4ED0                     jmp        [A0]
  585. 00000732  0C44 6F6F                cmpi.w     D4, 0x6F6F /* 'oo' */
  586. 00000736  7220                     moveq.l    D1, 0x20
  587. 00000738  4F70 656E                chk.w      D7, <<invalid full ext with IS == 1 and I/IS == 6>>
  588. 0000073C  696E                     bvs        +0x70 /* 000007AC */
  589. 0000073E  6700 0C44                beq        +0xC46 /* 00001384 */
  590. 00000742  6F6F                     ble        +0x71 /* 000007B3 */
  591. 00000744  7220                     moveq.l    D1, 0x20
  592. 00000746  436C 6F73                chk.w      D1, [A4 + 0x6F73]
  593. 0000074A  696E                     bvs        +0x70 /* 000007BA */
  594. 0000074C  6700 0C44                beq        +0xC46 /* 00001392 */
  595. 00000750  6F6F                     ble        +0x71 /* 000007C1 */
  596. 00000752  7220                     moveq.l    D1, 0x20
  597. 00000754  4F70 656E                chk.w      D7, <<invalid full ext with IS == 1 and I/IS == 6>>
  598. 00000758  696E                     bvs        +0x70 /* 000007C8 */
  599. 0000075A  6700 0C44                beq        +0xC46 /* 000013A0 */
  600. 0000075E  6F6F                     ble        +0x71 /* 000007CF */
  601. 00000760  7220                     moveq.l    D1, 0x20
  602. 00000762  436C 6F73                chk.w      D1, [A4 + 0x6F73]
  603. 00000766  696E                     bvs        +0x70 /* 000007D6 */
  604. 00000768  6700                     .incomplete
  605.